home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Software Contest 3 / FM Towns Software Contest 3.iso / exp / bpp / no1 / test.bas < prev    next >
BASIC Source File  |  1994-01-07  |  593b  |  36 lines
  1. 10 ' [ BPP PASS 3 ]
  2. 20 ' [ BPP PASS 2 ]
  3. 30 ' [ BPP PASS 1 ]
  4. 40 I=0'#1
  5. 50 WHILE I<20'#2
  6. 60 PRINT I'#3
  7. 70 I=I+1'#4
  8. 80 IF (I=10 )=0 THEN *ZZZ1'#5
  9. 90 GOTO *ZZZ0
  10. 100 *ZZZ1
  11. 110 WEND'#6
  12. 120 *ZZZ0
  13. 130 FOR I=0 TO 20'#7
  14. 140 PRINT I'#8
  15. 150 IF (I=10 )=0 THEN *ZZZ3'#9
  16. 160 GOTO *ZZZ2
  17. 170 *ZZZ3
  18. 180 NEXT '#10
  19. 190 *ZZZ2
  20. 200 *ZZZ4'#11
  21. 210 PRINT I'#12
  22. 220 I=I-1'#13
  23. 230 IF I>0 THEN *ZZZ4'#14
  24. 240 *ZZZ5
  25. 250 I=0'#15
  26. 260 *ZZZ6
  27. 270 IF (I<20)=0 THEN *ZZZ7
  28. 280 PRINT I'#16
  29. 290 IF (I=10 )=0 THEN *ZZZ8'#17
  30. 300 GOTO *ZZZ7
  31. 310 *ZZZ8
  32. 320 I=I+1'#18
  33. 330 GOTO *ZZZ6
  34. 340 *ZZZ7
  35. 350 END'#19
  36.